For Each Date[] (gb)

Dim hDateArray As Date[]
Dim aDate As Date
For Each aDate In hDateArray
  ...
Next

Enumera ogni elemento memorizzato nell'array.